home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / H145.ZIP / ASXXXX_4.ZIP / T6801S.ASM < prev    next >
Assembly Source File  |  1990-07-18  |  5KB  |  300 lines
  1.     .title    AS6801 Sequential Test
  2.  
  3.     .area    DIRECT
  4.  
  5.     .blkb    0x12
  6. dirpag:                ; direct page location
  7.     ext    = 0x1234    ; extended address
  8.  
  9.  
  10.     .area    AS6801
  11.  
  12.     .setdp    0,DIRECT
  13.  
  14.     .hd6303
  15.                 ; 00
  16.     nop            ; 01
  17.                 ; 02
  18.                 ; 03
  19.     lsrd            ; 04
  20.     asld            ; 05
  21.     tap            ; 06
  22.     tpa            ; 07
  23.     inx            ; 08
  24.     dex            ; 09
  25.     clv            ; 0A
  26.     sev            ; 0B
  27.     clc            ; 0C
  28.     sec            ; 0D
  29.     cli            ; 0E
  30.     sei            ; 0F
  31.     sba            ; 10
  32.     cba            ; 11
  33.                 ; 12
  34.                 ; 13
  35.                 ; 14
  36.                 ; 15
  37.     tab            ; 16
  38.     tba            ; 17
  39.     xgdx            ; 18         hd6303
  40.     daa            ; 19
  41.     slp            ; 1A        hd6303
  42.     aba            ; 1B
  43.                 ; 1C
  44.                 ; 1D
  45.                 ; 1E
  46.                 ; 1F
  47.  
  48.     .page
  49.  
  50.     bra    .        ; 20 FE
  51.     brn    .        ; 21 FE
  52.     bhi    .        ; 22 FE
  53.     bls    .        ; 23 FE
  54.     bcc    .        ; 24 FE
  55.     bcs    .        ; 25 FE
  56.     bne    .        ; 26 FE
  57.     beq    .        ; 27 FE
  58.     bvc    .        ; 28 FE
  59.     bvs    .        ; 29 FE
  60.     bpl    .        ; 2A FE
  61.     bmi    .        ; 2B FE
  62.     bge    .        ; 2C FE
  63.     blt    .        ; 2D FE
  64.     bgt    .        ; 2E FE
  65.     ble    .        ; 2F FE
  66.     tsx            ; 30
  67.     ins            ; 31
  68.     pula            ; 32
  69.     pulb            ; 33
  70.     des            ; 34
  71.     txs            ; 35
  72.     psha            ; 36
  73.     pshb            ; 37
  74.     pulx            ; 38
  75.     rts            ; 39
  76.     abx            ; 3A
  77.     rti            ; 3B
  78.     pshx            ; 3C
  79.     mul            ; 3D
  80.     wai            ; 3E
  81.     swi            ; 3F
  82.  
  83.  
  84.     .page
  85.  
  86.     nega            ; 40
  87.                 ; 41
  88.                 ; 42
  89.     coma            ; 43
  90.     lsra            ; 44
  91.                 ; 45
  92.     rora            ; 46
  93.     asra            ; 47
  94.     asla            ; 48
  95.     rola            ; 49
  96.     deca            ; 4A
  97.                 ; 4B
  98.     inca            ; 4C
  99.     tsta            ; 4D
  100.                 ; 4E
  101.     clra            ; 4F
  102.     negb            ; 50
  103.                 ; 51
  104.                 ; 52
  105.     comb            ; 53
  106.     lsrb            ; 54
  107.                 ; 55
  108.     rorb            ; 56
  109.     asrb            ; 57
  110.     aslb            ; 58
  111.     rolb            ; 59
  112.     decb            ; 5A
  113.                 ; 5B
  114.     incb            ; 5C
  115.     tstb            ; 5D
  116.                 ; 5E
  117.     clrb            ; 5F
  118.  
  119.  
  120.     .page
  121.  
  122.     neg    ,x        ; 60 00
  123.     aim    #2,    4,x    ; 61 02 04    hd6303
  124.     oim    #2,    4,x    ; 62 02 04    hd6303
  125.     com    ,x        ; 63 00
  126.     lsr    ,x        ; 64 00
  127.     eim    #2,    4,x    ; 65 02 04    hd6303
  128.     ror    ,x        ; 66 00
  129.     asr    ,x        ; 67 00
  130.     asl    ,x        ; 68 00
  131.     rol    ,x        ; 69 00
  132.     dec    ,x        ; 6A 00
  133.     tim    #2,    4,x    ; 6B 02 04    hd6303
  134.     inc    ,x        ; 6C 00
  135.     tst    ,x        ; 6D 00
  136.     jmp    ,x        ; 6E 00
  137.     clr    ,x        ; 6F 00
  138.     neg    ext        ; 70 12 34
  139.     aim    #2, *dirpag    ; 71 02 12    hd6303
  140.     oim    #2, *dirpag    ; 72 02 12    hd6303
  141.     com    ext        ; 73 12 34
  142.     lsr    ext        ; 74 12 34
  143.     eim    #2, *dirpag    ; 75 02 12    hd6303
  144.     ror    ext        ; 76 12 34
  145.     asr    ext        ; 77 12 34
  146.     asl    ext        ; 78 12 34
  147.     rol    ext        ; 79 12 34
  148.     dec    ext        ; 7A 12 34
  149.     tim    #2, *dirpag    ; 7B 02 12    hd6303
  150.     inc    ext        ; 7C 12 34
  151.     tst    ext        ; 7D 12 34
  152.     jmp    ext        ; 7E 12 34
  153.     clr    ext        ; 7F 12 34
  154.  
  155.  
  156.     .page
  157.  
  158.     suba    #1        ; 80 01
  159.     cmpa    #1        ; 81 01
  160.     sbca    #1        ; 82 01
  161.     subd    #1        ; 83 00 01
  162.     anda    #1        ; 84 01
  163.     bita    #1        ; 85 01
  164.     ldaa    #1        ; 86 01
  165.                 ; 87
  166.     eora    #1        ; 88 01
  167.     adca    #1        ; 89 01
  168.     oraa    #1        ; 8A 01
  169.     adda    #1        ; 8B 01
  170.     cpx    #1        ; 8C 00 01
  171.     bsr    .        ; 8D FE
  172.     lds    #1        ; 8E 00 01
  173.                 ; 8F
  174.     suba    *dirpag        ; 90 12
  175.     cmpa    *dirpag        ; 91 12
  176.     sbca    *dirpag        ; 92 12
  177.     subd    *dirpag        ; 93 12
  178.     anda    *dirpag        ; 94 12
  179.     bita    *dirpag        ; 95 12
  180.     ldaa    *dirpag        ; 96 12
  181.     staa    *dirpag        ; 97 12
  182.     eora    *dirpag        ; 98 12
  183.     adca    *dirpag        ; 99 12
  184.     oraa    *dirpag        ; 9A 12
  185.     adda    *dirpag        ; 9B 12
  186.     cpx    *dirpag        ; 9C 12
  187.     jsr    *dirpag        ; 9D 12
  188.     lds    *dirpag        ; 9E 12
  189.     sts    *dirpag        ; 9F 12
  190.  
  191.  
  192.     .page
  193.  
  194.     suba    4,x        ; A0 04
  195.     cmpa    4,x        ; A1 04
  196.     sbca    4,x        ; A2 04
  197.     subd    4,x        ; A3 04
  198.     anda    4,x        ; A4 04
  199.     bita    4,x        ; A5 04
  200.     ldaa    4,x        ; A6 04
  201.     staa    4,x        ; A7 04
  202.     eora    4,x        ; A8 04
  203.     adca    4,x        ; A9 04
  204.     oraa    4,x        ; AA 04
  205.     adda    4,x        ; AB 04
  206.     cpx    4,x        ; AC 04
  207.     jsr    4,x        ; AD 04
  208.     lds    4,x        ; AE 04
  209.     sts    4,x        ; AF 04
  210.     suba    ext        ; B0 12 34
  211.     cmpa    ext        ; B1 12 34
  212.     sbca    ext        ; B2 12 34
  213.     subd    ext        ; B3 12 34
  214.     anda    ext        ; B4 12 34
  215.     bita    ext        ; B5 12 34
  216.     ldaa    ext        ; B6 12 34
  217.     staa    ext        ; B7 12 34
  218.     eora    ext        ; B8 12 34
  219.     adca    ext        ; B9 12 34
  220.     oraa    ext        ; BA 12 34
  221.     adda    ext        ; BB 12 34
  222.     cpx    ext        ; BC 12 34
  223.     jsr    ext        ; BD 12 34
  224.     lds    ext        ; BE 12 34
  225.     sts    ext        ; BF 12 34
  226.  
  227.  
  228.     .page
  229.  
  230.     subb    #1        ; C0 01
  231.     cmpb    #1        ; C1 01
  232.     sbcb    #1        ; C2 01
  233.     addd    #1        ; C3 00 01
  234.     andb    #1        ; C4 01
  235.     bitb    #1        ; C5 01
  236.     ldab    #1        ; C6 01
  237.                 ; C7
  238.     eorb    #1        ; C8 01
  239.     adcb    #1        ; C9 01
  240.     orab    #1        ; CA 01
  241.     addb    #1        ; CB 01
  242.     ldd    #1        ; CC 00 01
  243.                 ; CD
  244.     ldx    #1        ; CE 00 01
  245.                 ; CF
  246.     subb    *dirpag        ; D0 12
  247.     cmpb    *dirpag        ; D1 12
  248.     sbcb    *dirpag        ; D2 12
  249.     addd    *dirpag        ; D3 12
  250.     andb    *dirpag        ; D4 12
  251.     bitb    *dirpag        ; D5 12
  252.     ldab    *dirpag        ; D6 12
  253.     stab    *dirpag        ; D7 12
  254.     eorb    *dirpag        ; D8 12
  255.     adcb    *dirpag        ; D9 12
  256.     orab    *dirpag        ; DA 12
  257.     addb    *dirpag        ; DB 12
  258.     ldd    *dirpag        ; DC 12
  259.     std    *dirpag        ; DD 12
  260.     ldx    *dirpag        ; DE 12
  261.     stx    *dirpag        ; DF 12
  262.  
  263.  
  264.     .page
  265.  
  266.     subb    dirpag,x    ; E0 12
  267.     cmpb    dirpag,x    ; E1 12
  268.     sbcb    dirpag,x    ; E2 12
  269.     addd    dirpag,x    ; E3 12
  270.     andb    dirpag,x    ; E4 12
  271.     bitb    dirpag,x    ; E5 12
  272.     ldab    dirpag,x    ; E6 12
  273.     stab    dirpag,x    ; E7 12
  274.     eorb    dirpag,x    ; E8 12
  275.     adcb    dirpag,x    ; E9 12
  276.     orab    dirpag,x    ; EA 12
  277.     addb    dirpag,x    ; EB 12
  278.     ldd    dirpag,x    ; EC 12
  279.     std    dirpag,x    ; ED 12
  280.     ldx    dirpag,x    ; EE 12
  281.     stx    dirpag,x    ; EF 12
  282.     subb    ext        ; F0 12 34
  283.     cmpb    ext        ; F1 12 34
  284.     sbcb    ext        ; F2 12 34
  285.     addd    ext        ; F3 12 34
  286.     andb    ext        ; F4 12 34
  287.     bitb    ext        ; F5 12 34
  288.     ldab    ext        ; F6 12 34
  289.     stab    ext        ; F7 12 34
  290.     eorb    ext        ; F8 12 34
  291.     adcb    ext        ; F9 12 34
  292.     orab    ext        ; FA 12 34
  293.     addb    ext        ; FB 12 34
  294.     ldd    ext        ; FC 12 34
  295.     std    ext        ; FD 12 34
  296.     ldx    ext        ; FE 12 34
  297.     stx    ext        ; FF 12 34
  298.  
  299.  
  300.